From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 24 Jul 1993 05:47:16 +0000 (+0000)
Subject: (Fprocess_status): Use Fget_process, to avoid error
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~94803
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=eb4686e4a3012a83771b50f4561d7d4966782f89;p=emacs.git

(Fprocess_status): Use Fget_process, to avoid error
if unknown process name.
---

diff --git a/src/process.c b/src/process.c
index 2d81b9adc63..3370a3298cf 100644
--- a/src/process.c
+++ b/src/process.c
@@ -631,14 +631,12 @@ closed -- for a network stream connection that is closed.\n\
 nil -- if arg is a process name and no such process exists.\n\
 PROCESS may be a process, a buffer, the name of a process or buffer, or\n\
 nil, indicating the current buffer's process.")
-/* command -- for a command channel opened to Emacs by another process.\n\
-   external -- for an i/o channel opened to Emacs by another process.\n\  */
   (proc)
      register Lisp_Object proc;
 {
   register struct Lisp_Process *p;
   register Lisp_Object status;
-  proc = get_process (proc);
+  proc = Fget_process (proc);
   if (NILP (proc))
     return proc;
   p = XPROCESS (proc);